home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00050_Script_JewelerQ2Script < prev    next >
Text File  |  1995-05-15  |  472b  |  17 lines
  1. on enterFrame
  2.   cursor 4
  3.   repeat with i=1 to 8
  4.     puppetsprite i+1, true
  5.     puppetsprite i+9, true
  6.     set the castNum of sprite i+1 to the number of cast ("JewQ" & i)
  7.     set the castNum of sprite i+9 to the number of cast ("JewQLight")
  8.     puppetSound "JewQ" & i & "Sound"
  9.     updateStage
  10.     repeat while soundbusy(1)
  11.       nothing
  12.     end repeat
  13.     set the castNum of sprite i+9 to the number of cast ("JewQLightDown")
  14.   end repeat
  15.   cursor -1
  16. end
  17.